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00 00 PP PP RR RR CC 00 00 MM MM MM ; 
00 00 PPPPPPPP RRRRRRRR cc 00 00 MM MM ° 
00 00 PPPPPPPP RRRRRRRR cc 00 00 MM MM ° 
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MODULE OPRCOM (LANGUAGE (6h. 18538) . 
re = 'v04-000' 


BEGIN 
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'@ * 
'® st A (c) 1978, 1980, 1982, 1984 B * 
'@ DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
~ ALL RIGHTS RESERVED. * 
' w 
'‘e THIS fe acch is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE gph NOTICE. THIS SOFTWARE * 
'e COPIES THEREOF MAY 4 BE PROVIDED OR OTHERWISE MADE AVAI LABLE TO ANY * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
'@ TRANSFERRED. ® 
' t 
's THE gt te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'# CORPORATION. * 

* 

oa 

y 

* 

% 

* 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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heck for OPCOM, so Rat the MTAACP can recover if OPCOM 
s not available. 


i 

FACILITY: MTAACP 

i ABSTRACT 

: This module communicates with the operator : 
i ; 
: ENVIRONMENT : ; 
i VMS operating system, including privileged system services ; 
and internal exec routines. : 
7 ; 
‘ 

' 

AUTHOR: D. H. GILLESPIE, CREATION DATE: 24-AUG-1977 

MODIFIED BY: 

i v03-002 HH0041 Huan 4 sutst -1984 

Remove REQUIRE tapes VASLIB. 0B) JMOUNTHS<.2 

i v03-001 mMd0102 Neg Dunont 17-Feb-1983 13:12 

: Use ect _DEV_NAME to the tape units’ device name. Add 

i 
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DOONAN 
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15 
16-5 1984 02:28:09 AX-11 Bliss-32 V4.0-74 
12-860-1984 13:28 ite LATAACP-SRE OPRCOM.B32; 


! 

i v03-006 DMw00078 David Michael Walp 8-Feb-1982 

; Fixed — and poping of Username and Account CTL 
} fields around opreator request. 

i v03-005 pmw00021 David Michael Walp 26-May-1981 

Move GOLBAL LITERAL WORK_AREA_SZ to MTADEF. 

V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 

ive 


LIBRARY ‘"SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘"SRCS:MTADEF .B32'; 
FORWARD ROUTINE 


CANCEL_OP_REPLY : COMMON CALL NOVALUE, ! cancel reply from operator 
FILL_PROC” : COMMON_CALL NOVALUE, 


PRINT_NOT_LABEL : NOVALUE JSB, ! print not correct Label 

PRINT _OPR_MSG : LSPRINT_OPR_MSG, ! print operator message 

SEND_ASG : COMMON_CALL; ! send msg to tape operator 
GLOBAL 

WORK_AREA : VECTOR CWORK_AREA_SZ, BYTE]; 
EXTERNAL 

CTL$T_USERNAME : ADDRESSING_MODE (ABSOLUTE), 

CTL$T_ ACCOUNT : ADDRESSING_MODE (ABSOLUTE), 

CURRERT_UCB : REF BBLOCK, ! address of current unit control block 

MAIL_C EL; ! channel for reply mailbox 
EXTERNAL ROUTINE 

GET_DEV_NAME : COMMON_CALL NOVALUE; ! Given the UCB add get dev name 


! SETUP MESSAGE DESCRIPTOR AND BUFFER IN WORK AREA 


IND 
DESCR = WORK_AREA  : VECTOR (2), 
MSG = WORK_AREA + 8 : BBLOCK; 
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ROUTINE SEND_MSG (MB_CHANNEL) : COMMON_CALL = 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This routine formats and sends a message to the tape operator 


CALLING SEQUENCE: 
SEND _MSG() 


i INPUT PARAMETERS: 
ARG 


1 = mailbox channel number 


! IMPLICIT INPUTS: 


CURRENT_VCB - address of current volume control block 
DESEREOJ = length of text to be sent 
MSGCOPCSL_MS_TEXT] = text to be sent 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
message sent 
ROUTINE VALUE: 
SS$_DEVOFFLIN = no operator 
SS$_MBTOOSML = mailbox too small for message 


SIDE EFFECTS: 
NONE 


BEGIN 

EXTERNAL REGISTER 
COMMON_REG; 

EXT 


ERNAL 
ACP_USERNAME : VECTOR C . BYTE J, 
ACPTACCOUNT : VECTOR C ; BYTE 2: 


BIND 
SECONDS = UPLIT (-10000000, -1); 


LOCAL 
vvP : REF BBLOCK, , 
STATUS ; ! status of mailbox write 


: format message header 


MSGCOPC$B_MS_TARGET) = OPRSM_TAPES; 

MSGCOPCSL-MS RPLYID = ,CURRENT VCB; ! id if reply 
DESCR[O) = .DESCRLO] + $BYTEOFFSET(OPCSL_MS_TEXT); 

DESCRL1) = MSG; 

VVP = .CURRENT.VCB C VCBSL_VPFL J; 


v 
> 


4 
1e-8ep-1984 18:46:46 EATAAcPsSRESOPRCON-B30; 


eRe Se Se Se ee Se Be SH FHS Se Se Be we Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se se SHS Se Se Seas 


N 15 
vO4-000 18-$8p-1984 18:46:66 EmYAAcPeSRESOPRCOM- B30; nil 


INCR J FROM 0 TO 119 DO ! wait two minutes 
BEGIN 


wn 
oO 


make it look Like the user is making the opcom request 
KERNEL_CALL ( FILL_PROC, VVPCVVPST_USERNAME], VVPCVVPST_ACCOUNT] ); 
STATUS = SSNDOPR ( MSGBUF = DESCR, CHAN = .MB_CHANNEL ); 
KERNEL_CALL ( FILL PROC, ACP_USERNAME, ACP_ACCOUNT ); 

! If the status is opcS .noperator then reset the error to be 

! the fatal error. This means that there is no opcom available 

! as would be the case if we are running on Midnite. 


IF .STATUS EQL OPCS$_NOPERATOR THEN 
BEGIN 


BIND 
STATUS2 = STATUS 
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LUPVUSPUSUSUS SUSU ISIS 
PAA AXAEDP MANNA SBP LLL LE 


oh 

: 160 ; 

s 36) 

; 16 4 

: 10 5 

3 19? ; 

: 163 : 

> 168 0 

; «4169 1 

3; i ¢ 

5. Urn 

: 176 4 

oF 5 

; 174 § 

; 175 4 

3 176 3 4 

; 17 4 : BLOCK (4, BYTE]; 

: 178 0 4 STATUS2 CSTS$V_SEVERITY] = STSSK_ERROR; 

; 19 : * EXITLOOP; 

: ib 0868 ' 

3 18¢ 0564 ! Return to the caller if the send to cperator worked. Or if it 
; 18 0565 ! got an unrecoverable error. Device off Line means there is 
3; «(186 0566 ! no opcom available as would be the case if we are running on 
; «6185 0567 ! Midnite. 

3 198 0568 

s; 2 0569 IF .STATUS 

; 188 0570 R 

: 189 bee) 4 (.STATUS NEQ SS$_INSFMEM 

: 190 if; 4 AN 

; «6191 0575 4 -STATUS NEQ SS$_MBFULL) 

3 135 Bare 4 OR (.STATUS EQL SS$_DEVOFFLINE) 

3 133 B29 EXITLOOP; ! if temporary problem, then repeat 
: 196 0578 4 IF SSETIMR(DAYTIM = SECONDS, EFN = TIMEFN) 

3; 197 tt44 THEN 

; 198 580 SWAITFRCEFN = TIMEFN); 

; 199 0581 

: 200 B286 END; 

: 83 2 RETURN .STATUS 

: 08 03 5 

: 204 586 END; ' end of routine 


-TITLE OPRCOM 
-IDENT \V04-000\ 
-PSECT SCODES,NOWRT ,2 
FFFFFFFF €F676980 00000 P.AAA: .LONG ~-10000000, -1 : 


-PSECT SLOCKEDD1$,NOEXE ,2 
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00000 WORK_AREA:: 
-BLKB 


-EXTRN 
-PSECT 
QOFC 00000 SEND_MSG: 
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AX=11 BLi 


9 $$ -32 V4.0-74 
6 MTAACP. SRC} OPR 


:0 
74 COM.B32; 
128 
WORK_AREA 

WORK AREAS 

L$T_USERNAME, Pde s+! ACCOUNT 
RR ner VUCB HARNEL 
fb 
6se 


SYSSWA 
vipa S 
Save R2,R3, * Ro. R6,R7 
a#SYSSCAKRNL 
DESCR R6 
G+1 
sys VCB, MSG+4 
MSG +4 
6 CURRENT vcB), VvP 
4(RO), Re 
43200), 
#°MCRG,R5> 
a2 


Fu ROC 
r) SYSSCIKANL 
MB CHANNEL 

#2, SYSSSNDOPR 
RO, STATUS 

ACP ACCOUNT 
ie “USERNAME 


FILL PR 
a Sy SCAKRNL 
STATUS, #360545 


#2, #0, #3, STATUS2 
5$ 


STATUS, 5$ 
TATUS, #292 


TATUS, #2264 
gan. #132 
=(SP) 

; CONDS 
#4, SYSSSETIMR 


Page 5 


(2) 


5 te Fe wae ey 
CoO COONCOu 


; Routine Size: 


295 


0587 


1 


000000006 
0 ' 00000077 g 


178 bytes, Routine Base: 
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mn WOo 
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Orrovovo 
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SCODES + 0008 


ep- 
ep- 


1382 98:28:08 = PAN A ebdesabe chm Bs509 
BLBC ~=_«aRO, 4S 
PUSHL 
CALLS #1, SYSSWAITFR 
AOBLEQ #119, 5 


J, 
MOVL STATUS, RO 
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1e-Sep-1984 $3:4636 


GLOBAL ROUTINE PRINT_NOT_LABEL (MVL_ENTRY) : JSB NOVALUE = 


asc 


AX-11 Oh iegese V4.0-74 Page 7 
MTAACP.SRCJOPRCOM.B32; (3) 


v04 


lee 
' 
FUNCTIONAL DESCRIPTION: 
This routine prints at the tape operator's terminal the message 
vol on mtax: not xxxx' 


. CALLING SEQUENCE: 
PRINT_NOT_LABEL (ARG1) 


PUPP 


eo Re Ae ae OH 
CSDBVNAVULSWN— OOO 


INPUT PARAMETERS: 
NONE 


; 207 1 

; 208 | 

; 209 1 

; 210 1! 

; 1} : 

; 18 1! 

3 14 se 

3 1? ! 

3 3 1! 

3 + 1! 

: 21 609 1! 

3 $0 0601 1! 

3 1 ret 1 ! IMPLICIT INPUTS: 

; $$ 6 1! CURRENT_UCB = address of current unit control block 

; 234 pope ' CURRENT_VCB = address of current volume control block 
: 25 Rene 1 ! OUTPUT PARAMETERS: 

; 226 0607 1! NONE 

: def 0608 1! 

3 28 0609 1 ! IMPLICIT OUTPUTS: 

: 229 0610 1! Message printed at tape operator's terminal unless 

; $30 Berd } there is no operator or the mailbox is too small 

; $36 0618 1 ! ROUTINE VALUE: 

3 33 0614 1! NONE 

: 234 0615 1! 

3s 233 8018 1 ! SIDE EFFECTS: 

: 236 061 1! NONE 

3 237 0618 1! 

; 238 0619 1 !-- 

: 239 0620 1 

: 240 0621 BEGIN 

> 241 bess 

3 se§ 062 EXTERNAL REGISTER 

3; 2 0624 COMMON_REG; 

Me 

3 Ste 0627 CVT_DEVNAM : VECTOR CMAX_DEVNAM_LENGTH,BYTEJ, ! Converted dev name 
: 247 0628 CVT_DEVNAM_LENGTH : BYT ' and length of dev name 
: 248 0629 LABEL_ADDR : REF VECTOR C, BYTE], | address of Label 
3 249 0630 LABEL_S2; 

: $29 $3) « 

$ 2$ o38 MVL_ENTRY : REF BBLOCK; ! address of volume entry in mvl 
3 254 a LABEL_ADDR = MVL_ENTRYCMVL$T_VOLLBL); 

3 22 O36 LABEL_SZ = 0; 

: 257 O38 ! flush out trailing blanks 

; 258 63 ! 

3; 259 640 

3 60 641 INCR I FROM 0 TO MVL$S_VOLLBL - 1 DO 

: 61 rel) BEGIN 

3 o¢ 64 

3 6 0644 IF .LABEL_ADDRC.1] EQL * ° 


16 
IE RrsHs ith 


s or 0658 1 


09 AX-11 tg pe V4.0-74 
46 MTAACP.SRCJOPRCOM.B32; 


; 645 THEN 
: 265 278 EXITLOOP; 
: 26 64 ABEL_SZ = .LABEL_SZ + 1; 
3 $8 64s ENDS ye ! 
3 0 bess ! This next call will use the UCB address to get the device's name and 
: a! 8626 ! will fill in the fields with that name and the length of the name. 
; 27 p68 GET_DEV_NAME (CVT_DEVNAM_LENGTH, CVT_DEVNAM); 
: 74 55 PRINT_OPR_MSG(MOONS_NOTCABEL 6, -CABEL_SZ, -LABEL_ADDR, 
> 275 696 .CVT_BEVNAM_LENGTH, CVT_DEVNAM); 
: 76 0657 END; ! end of routine 
OC BB 00000 PRINT_NOT _LABEL:: 
POSHR #*M<R2,R3> 
5E 14 C 90008 SUBL2 #20, S 
52 20 AE 00 0000 MOVL MVL_ENTRY, LABEL_ADDR 
53 04 00009 CLRL LABEL_SZ 
50 04 00008 CLRL I 
20 6042 91 00000 1$ CMPB (I)CLABEL_ADDR], #32 
96 13 00011 BEQL $ 
5 dg 00013 INCL LABEL_S2Z 
F4 50 05 F3 00015 AOBLEQ #5, I, 1$ 
04 AE 9F 00019 28 PUSHAB CVT_DEVNAM 
04 ag oF Benle PUSHAB CVT_DEVNAM_LENGTH 
0000G CF 02 FB OOOTF CALLS #2, GET 
04 AE 9F 00024 PUSHAB CVT_DEV 
7E 04 AE 9A 00027 MOVZBL CVT_DEVNAM_LENGTH, -(SP) 
52 DD 00028 PUSHL LABEL_ADDR 
53 DD 0002D PUSHL LABEL_S2Z 
7E D4 BonS, CLRL ad 
00728104 8F DD 4 1 PUSHL #7504132 
0000v 30 tH BSBW PRINT_OPR_MSG 
5E 2C CO O003A ADDL2 #44, SP 
OC BA 00030 POPR #*M<R2,R3> 
05 0003F RSB 
; Routine Size: 64 bytes, Routine Base: S$CODE$S + OOBA 
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1-80-1984 13:46:46 ERTAACP’SRESOPRCOM: B36; 


; 64 8638 ! GLOBAL ROUTINE CANCEL_OP_REPLY : COMMON_CALL NOVALUE = 
$ + 661 1 !+4+4 
3 ¢ 662 1: 
3 8 663 1: asta DESCRIPTION: 
: Se 06% ! This routine cancels a request sent to the operator 
; see 066 1 § CALLING SEQUENCE: 
; 8 667 1: CANCEL_OP_REPLY() 
$ 88 668 1: 
: 89 669 1 | INPUT PARAMETERS: 
: 290 Be58 13 NONE 
3 91 671 1: 
; 29 be5 1 ' IMPLICIT INPUTS: 
; 1 beoz : CURRENT_VCB = address of current volume control block 
3 $3¢ 0675 1 | OUTPUT PARAMETERS: 
3 96 0676 1: NONE 
; 297 0677 1! 
: 98 0678 1 | IMPLICIT OUTPUTS: 
3 $30 0679 1! NONE 
; 300 0680 1! 
; 301 0681 1} peace * VALUE: 
3 306 0682 1} ONE 
; 0683 1! 
; 304 06 1 ' SIDE EFFECTS: 
3; 305 0685 1! NONE 
: 306 0686 1} 
s wor 0687 1 ! USER — 
; 308 0688 1! ONE 
3 09 0689 1: 
: 319 0690 1 i- 
3 11 0691 1 
; 31§ 069 BEGIN 
5; 3 69 
s 316 694 EXTERNAL REGISTER 
3 316 Beas COMMON_REG; 
3 17 069 MSGCOPCS$B _MS_ TYPEJ = OPC$_RQ_CANCEL; 
; 318 0698 DESCRLO) = ! no message text 
3 19 0699 RETURN SEND “ASG(. MAIL_CHANNEL); 
: 320 0700 
s Sel 0701 1 END; 
0000 000 -ENTRY CANCEL_OP_REPLY, Save nothing 
0000" CF 05 90 it MOVB #5, MSG 
0000° CF D4 0000 CLRL DESCR 
00006 ff DD 00008 PUSHL MAIL_CHANNEL 
FEFA CF 1 FB Bete CALLS #1, SEND_MSG 
04 00014 RET 


3; Routine Size: 21 bytes, Routine Base: S$CODE$S + OOFA 
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16-Sep-1984 8:09 AX-11 Bliss-32 V4.0-74 
1fcSen-1984 93: 28: 746 MTAACP.SRC JOPRCOM.B32; 


GLOBAL ROUTINE PRINT_OPR_MSG (MSGNO, CHANNEL, ARGLIST) : LSPRINT_OPR_MSG = 
14 
' 


i FUNCTIONAL DESCRIPTION: 
} nt Sng fg gets a system message, formats the messages and 


i CALLING SEQUENCE: 
i PRINT_OPR_MSG(ARG1,ARG2,ARG3) 


! INPUT cee renee 
ARG oo message number 

Anes annel number for reply if one is wanted 

ARGS - = arguments for inclusion in message 


i IMPLICIT INPUTS: 
NONE 


Ww 
Ooo 
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SPP ere SA Soe Oe 
wr o NOUS WN—"OOONOUNSE 
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S 
ws 


i QUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
NONE 


SSNS SNS NNN 


i ROUTINE VALUE: 
status code from send to operator 


i SIDE EFFECTS: 
; DATA is used as a work area(also used by RDATTR) 


BEGIN 
EXTERNAL REGISTER 
COMMON ; 


PPA AASS II & & 
DWONOAUSWN —OOONO 


AAA AAAI 


wwe 


EXTERNAL ROUTINE 
SYS$F AOL : ADDRESSING_MODE (ABSOLUTE), 
SYSSGETMSG : ADDRESSING“MODE (ABSOLUTE); 


EXTERNAL 
DATA; 


PEEKS FAWN PIPE NPONONUNOPONININDY 2 SS SS OS 


LOCAL 
DESCR_FAOSTR : VECTOR (2); 


DESCR =f AOSTREO) 343 


YS$GETM S6(.K HSGNO arse. FAOSTR DESCR_F 
o} = WORK SOYTEOFFSET COPCEL. _AS_ inn): 
= MSGL fopcst -ii TeX): 


OF SSFAO (DESCR_FA STR BES + @DESCR. ARGLIST); 
SGCOPC$B_MS_TYPE épcs: RO’ 


VORRUNLSSHIEST, 
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3; Routine Size: 
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oo 
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90 bytes, 


0772 


LOCAL 
STATUS; 


STATUS = SEND_MSG(. CHANNEL); 


IF NOT .STATUS 
RETURN .STATUS); 


RETURN 1; 
END; 
5E 04 
7E 0100 + 8F 
04 AE 0000G CF 
7E 1 
08 AE 
OC AE 
1c OA 
00000000G 9F 0 
0000° CF 70 = BF 
0000" CF 0000" CF 
14 AE 
0000° CF 
0000" CF 
OC AE 
00000000G 9F 04 
0000° CF 03 
10 AE 
FEA9 CF 01 
03 50 
50 01 
SE 08 


Routine Base: 
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! end of 
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eEXTRN 
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MOV 
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routine PRINT_OPR_MSG 


SYSSFAOL, SYSSGETMSG 
DATA 


16 
18-Sep-1984 02:28:09 eae Bliss-32 V4.0-742 
14-Sep-1984 12:46:46 MTAACP.SRCJOPRCOM.B32; 1 


; 395 Orr? ] ROUTINE FILL_PROC ( USERNAME, ACCOUNT ) : COMMON_CALL NOVALUE = 
3 38 775 «1 «S44 
3 a8 ak 7% 
é 777 ~=©1-=! FUNCTIONAL DESCRIPTION: 
; 400 778 1! This routine fills in the username and account in P1 space. So 
; 401 779 1! pe5ee messages look Like they are coming from the user rather then 
; 40 0780 1! ACP 
; 40 781 1! 
; 404 7 ¢ 1 ! CALLING SEQUENCE: 
; 405 ri 1% FILE_PROC ( AGR1, ARG2 ) in kernel mode 
3 $06 i 1! 
; 40 785 1 ! INPUT PARAMETERS: 
; 408 ree 1! ARG] - address of username we 
3; 409 07 1! ARG2 = address of account name string 
; 410 gree . 3 
3 $611 0789 1 ! IMPLICIT INPUTS: 
3 216 0790 1! NONE 
3; «(641 0791 1! 
: 414 tae 1 ! OUTPUT PARAMETERS: 
; 415 0793 1! NONE 
: 416 0794 1! 
3; 417 0795 1 ! IMPLICIT OUTPUTS: 
; 418 0796 1! NONE 
; 419 0797 1! 
: 420 0798 1 ! ROUTINE VALUE: 
: 421 0799 1! NONE 
§ $56 0800 1! 
3; 6 0801 1 ! SIDE EFFECTS: 
: 424 0802 1! NONE 
; 425 0805 1! 
: 426 0804 1 !-- 
3: 427 0805 1 
; 428 0806 BEGIN 
j ri} 0807 
3; 4 0808 
3: 431 0809 USERNAME : REF VECTOR C , BYTE J, 
g $36 thy ACCOUNT : REF VECTOR C , BYTE J; 
: 434 itt CHSMOVE ( VVPSS_USERNAME, .USERNAME, CTL$T_USERNAME) ; 
: 435 081 CHSMOVE ( VVPSS_ACCOUNT, .ACCOUNT, CTLST_ACCOUNT); 
3; 436 0814 1 END; 
003C 00000 FILL_PROC: 
WOR Save R2,R3,R4,R5 
000000006 9F 04 BC 0¢ 28 00002 HOVC3 #12. aUSERNAME, @#CTLST_USERNAME 
000000006 9F 08 BC 08 8 00008 move #8, @ACCOUNT, @#CTL$T_ACCOUNT 


; Routine Size: 21 bytes, Routine Base: S$CODE$ + 0169 


; 437 0815 


1 END 
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1erSep-198e 1:46:06 EMTAACECSRESOPRCON-B30;1 


3 817 0 ELUDOM 


PSECT SUMMARY 

Name Bytes Attributes 
eceeeets 168 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, pogo Cg bot H 
SCODE 3 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
oceania = Syakels sqoce=ee Pages Processing 

File Total Loaded Percent Mapped Time 

_$255$DUA28: CSYSLIBILIB.L32;1 18619 26 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OPRCOM/OBJ=O0BJ$:OPRCOM MSRC$:OPRCOM/UPDATE=(ENH$:OPRCOM) 


440 0818 0 
pte: 374 code + 136 data bytes 


phy fave 2:6 " 
Lines/CPU Min: 4 

eet At ae 19655 
Memor ry Us : 105 pages 
Compilation Complete 


PMENT CORPORATION 
_AND PROPRIETARY 


0259 vax/ vs v4-0 C 


